home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / SimpleFaro.dxr / case keeper_40_qw.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  795 b   |  27 lines
  1. property spriteNum
  2. global deck
  3.  
  4. on mouseDown me
  5.   if (sprite(spriteNum).member.name <> "s") or (sprite(spriteNum).member.name <> "s2") then
  6.     sprite(spriteNum).member = member(sprite(spriteNum).member.name & "2")
  7.     go(sprite(spriteNum).member.name)
  8.   else
  9.     if (getColor(deck.mDrawCard(1).pSuit) = getColor(deck.mDrawCard(2).pSuit)) and (getColor(deck.mDrawCard(2).pSuit) = getColor(deck.mDrawCard(3).pSuit)) then
  10.       alert("Can not bet in this manner.")
  11.     else
  12.       sprite(spriteNum).member = member(sprite(spriteNum).member.name & "2")
  13.       go(sprite(spriteNum).member.name)
  14.     end if
  15.   end if
  16. end
  17.  
  18. on getColor blah
  19.   if (blah = #hearts) or (blah = #diamonds) then
  20.     return #red
  21.   else
  22.     if (blah = #clubs) or (blah = #spades) then
  23.       return #black
  24.     end if
  25.   end if
  26. end
  27.